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000000 
000000 



000021 
000023 



TSCLR: 



TITLE TSCLR 

PSECT TSCLR 

ENABL LC 

ENABL AMA 

DSABL OBL 



Communication Line (CD Handler for TSX-Plus 






TSCLR is the resident portion of the Communication Line (CD handler. 

The largest part of the CL code is in the non-resident system virtual 

overlay TSCLO. 

This handler supports I/O to communication lines declared by 

use of the lOLINE macro mhen the system is generated. 

The device names are CLOj CL1> . . . , CL7. 

Internal queueing is used to allom concurrent input/output operations 

to take place on all of the devices at the same time. 

XON/XOFF support is provided. 



Copyright (c) 1984. 
S&H Computer Systems* Inc. 
Nashville, Tennessee USA 
All rights reserved 



<31obai definitions 

. GLOBL TSCLR, CLHEAD, CLOTIR, CLSIZE, CLCQE, CLLQE, CLABF 

Global references 

. GLOBL CLIOCJ, CLABRT, LSW3, *CTRLS, CLfORB, CL*ORE 

. GLOBL CL*ORG, CL*DRS, OVRHC, CL*ORA 

. GLOBL CL*STA, NEDCDO, NEDCLO 

. GLOBL *SXON, $SXOFF, LSWIO 

.GLOBL CM*BRK, LCXTBL 

. GLOBL LCLUNT 

Parameter definitions 



CTRLQ 
CTRLS 



21 
23 



;Ctrl-Q (XON) 
;Ctrl-"S (XOFF) 



Macro definitions 

Macro to call a non-resident overlay routine 

. MACRO OCALL ENTADD 

.IF B FNTADD 

.ERROR ; OCALL without entry address 

. ENDC 

CALL OVRHC iCail the overlay handler 

. WORD ENTADD 

. ENDM OCALL 
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Header 

. SBTTL Handler Header 

> — — — — — — .— — — ».«..« — «.—«««•_-__.„__«.«.«.«- ■„«»«-.«.—-* 

i Device handler header fixed cells. 



000000 000000 

000002 000022 

000004 000000 

000006 000000 

000010 000000 

000012 000137 000026 



000016 000137 000032' 
000022 000775 
000024 000207 



CLHEAD: 


. WORD 







. WORD 


CLINT-. 


CLABF. 


. WORD 





CLLQE: 


. WORD 





CLCQE: 


. WORD 







JMP 


CLENTR 



; Device vector 

; Offset to interrupt service entry point 

i Interrupt priority 

i Last queue element pending for handler 

; Current queue element for handler 

; Entered here from system I/O queueing 



.! Simulated interrupt entry point and abort entry point 

1*: 

CLINT: 



JhP 

BR 

RETURN 



CLABEN 

1* 



; Enter abort routine 

j Actual abort entry point (just before CLINT) 

iFake interrupt entry point 
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1 

2 

3 

4 

5 

6 

7 

8 

9 
10 000026 
11 
12 
13 

14 000026 000137 0000000 
15 
16 
17 
IS 
19 

20 000032 
21 
22 
23 

24 000032 
25 
26 
27 
28 000040 000207 



SBTTL I/O queue entry point 



CLENTR is jumped to from the system X/0 queueing routine when a new 
I/O operation has been queued on the CL device. 

Inputs: 
CLCQE = Current queue entry pointer. 
CLLQE ~ Last queue entry in list for handler. 

CLENTR: 

Call non-resident part of handler to perform I/O queue function 

JMP CLIOO ; Perform I/O queue operation 

. SBTTL CLABEN — CL abort entry point 
CLABEN is the CL handler abort entry point. 
CLABEN: 

Call non-resident routine to do abort processing 

OCALL CLABRT ;Call non-resident abort processing routine 

Finished 

RETURN 



\ 



TSCLR - 
CLOTIR 
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. SBTTL CLOTIR — Output interrupt service routine 

CLOTIR is called from a device output interrupt service routine to try 

to pet the next character to be transmitted. 

This routine is called from the device interrupt processing routine 

with the interrupts disabled. 

Neither a . INTEN nor a . FORK has been done. 

.Inputs: 
R4 '- Line index number 

Outp u ts : 
C-flag cleared ==> Another character is available. 
C-flag set =■=> No more characters available. 
RO = Character to send if C-flag is cleared. 



000042 010346 
000044 010546 



000046 016405 OOOOOOG 



000052 032765 OOOOOOG OOOOOOG 
000060 001067 



CLOTIR: MOV 
MOV 



R3, -<SP) 
R5, -<SP> 



000062 032764 OOOOOOG OOOOOOG 

000070 001406 

000072 042764 OOOOOOG OOOOOOG 

000100 012700 000023 

000104 000453 



Convert line # to device index number 

MOV LCLUNr<R4), R5 ; Convert line # to CL unit number index 

See if we avB currently transmitting a break 

BIT #CM*BRK, CL*STA(R5) i Are sending a break now? 
BNE 6* ; Br if yes 

See if we need to send XDFF <ctrI~S) to the sender because we 

BTB receiving input too fast. 

BIT #*SXOFF, LSW10<R4)J Do we need to send XOFF? 

BEQ 1* i Br if not 

BIC #*SXOFF, LSW10(R4); Say XOFF is being sent 

MOV #CTRLS, RO i Get XOFF character 

BR 5* i Go send it 

See if we need to send XON (ctri-Q) to the sender to restart 
transmission to us. 



000106 032764 OOOOOOG OOOOOOG 1*: 

000114 001406 

000116 042764 OOOOOOG OOOOOOG 

000124 012700 000021 

000130 000441 



BIT #*SXON, LSW10<R4)i Do we need to send XON? 

BEO 2* i Br if not 

BIC #$SXON, LSW10(R4)j Remember that XON has been sent 

MOV #CTRLQ> RO ; Get XON character 

BR 5* ; Go send it 



See if we have received XOFF <ctrl-S) and should suspend output to 
this line 



000132 032764 OOOOOOG OOOOOOG 2*: 
000140 001037 



BIT #*CTRLS, LSW3<R4)i Has output to this line been suspended? 
BNE 6* i Br if yes 



000142 026565 OOOOOOG OOOOOOG 
000150 001433 



See if there btb any characters available in the output ring buffer 

CMP CL*0RS(R5)>CL*0RA<R5)i Any characters in output ring buffer? 
BEQ 6* ;Br if not 
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58 
59 

60 000152 016503 OOOOOOG 

61 0001S6 lliiiJOU 
62 

63 
64 

65 000160 020365 OOOOOOG 

66 000164 103402 

67 000166 016503 OOOOOOG 

68 000172 010365 OOOOOOG 
69 

70 
71 

72 000176 005265 OOOOOOG 

73 000202 005237 OOOOOOG 

74 000206 005237 OOOOOOG 
75 

76 
77 

78 000212 016403 OOOOOOG 

79 000216 001406 

80 000220 012305 

81 000222 001404 

82 000224 120005 

83 000226 001374 

84 000230 000305 

85 000232 110500 
86 

87 
88 

89 000234 000241 

90 000236 000401 
91 

92 

93 

94 000240 000261 

95 

96 

97 

98 000242 012605 

99 000244 012603 
100 000246 000207 
101 

102 
103 

104 000250 

105 000001 
Errors detected; 



Get next character from the output ring buffer 



MOV CL*0RG<R5), R3 
MOVB (R3)+, RO 



i Get pointer to next char in ring buffer 
> Get the character 



c 

€ 



Update the ring buffer pointer 



7*: 



CMP R3, CL*0RE<R5) 

BLO 7* 

MOV CL*0RB(R5), R3 

MOV R3, CL*0RG(R5) 



J Did tue move past the end of the ring buffer? 

; Br if not 

; Wrap around to the front of the buffer 

i Save new ring buffer pointer 



Say one more avilable space in ring buffer 



INC CL$0RS<R5) 
INC NEDCDO 
INC NEDCLO 



J More more free char space in ring buffer 
> Output character processing needed 
; Say CL output processing needed 



See if me need to translate the character 



3*: 



MOV 


LCXTBL(R4),R3 


BEQ 


5* 


MOV 


<R3)+, R5 


BEQ 


5* 


CMPB 


RO, R5 


BNE 


3* 


SWAB 


R5 


MOVB 


R5, RO 



We got a character to send 



5*: 



CLC 
BR 



Get pointer to translation table for line 

Br if no translation table 

Get next entry from translation table 

Br if reached end of table 

Do we need to translate this character? 

Br if not 

Get replacement char to low-order byte 

Get replacement character to RO 



; Indicate that u»e got a character 



10* 



There are no available characters 



5: SEC 
F i ? » i Si h e ri 
10*: 



Signal that no character s available 



MOV 
MOV 
RETURN 



<SP)+, R5 
<SP)+, R3 



Def-ine size of CL handler 

CLSIZe r=- . -CLHEAD 

. END 



iSize of CL handler 



**«■ Assembler statistics 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 







13L' Words < 1 Pages) 

1 7920 Words < 70 P a <j e s ) 
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CLDTIR — Output interrupt service routine 

Operating system: RT~.1J. 

Elapsed time: 00:00:09.57 

DK: TSCLR, LP: TSCLR^DK: rSCLK. I1AC/C/N: SYM 
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1-30 


4-50 






*SXOFF 


1-33 


4-3,? 


4-34 




$3 A ON 


1—33 


4—4 i 


4—43 




CLIiORA 


1-31 


4-55 






CL.*ORB 


1-30 


4-67 






CL*ORE 


1-30 


4-65 






CLfORG 


1-31 


4-60 


4-68+J 




CL*ORS 


1-31 


4-55 


4~72iJ 




CL*STA 


1-32 


4-26 






CLABEN 


2-14 


3~20# 






CLABF 


1-26 


2~7# 






CLABRT 


1-30 


3-24 






CLCQE 


1-26 


2-9# 






CLENTR 


2-10 


3-10# 






CLHEAD 


1-26 


2~5# 


4-104 




CLINT 


2-6 


2-.i6# 






CLIOQ 


1-30 


3~.l4 






CLLQE 


1-26 


2-8# 






CLOT I R 


1-26 


4~17# 






CLSIZE 


1-26 


4-104# 






CM*BRK 


1-34 


4-26 






CTRLQ 


l-39# 


4-44 






CTRLS 


l-40# 


4-35 






LCLUNT 


1-35 


4-22 






LCXTBL 


1-34 


. 4-78 






LSWIO 


1-33 


4-32 


4-34* 4-41 


4-4; 


LSW3 


1-30 


4-50 






NEDCDO 


1-32 


4-734^ 






NEDCLO 


1-32 


4-74*- 






OVRHC 


1-31 


3-24 






TSCLR 


l-3# 


1-26 
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